home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
CUJ9206.ARJ
/
1006090A
< prev
next >
Wrap
Text File
|
1992-06-02
|
474b
|
32 lines
/* LISTING 4 */
#include <stdlib.h>
static double c[200];
f4()
{
double a[200];
double *b;
b = (double *)malloc(200 * sizeof(double));
f4sub1(c,b,a,200);
f4sub2(c+1,c,a,200);
}
f4sub1(double *p, double *q, double *r, int n)
{
int i;
for( i=0; i<200; ++i )
*p++ = *q++ / *r++;
}
f4sub2(double *p, double *q, double *r, int n)
{
int i;
for( i=0; i<200; ++i )
*p++ = *q++ / *r++;
}